www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminTemplates_qiye\D_edit_a_template_before-old.asp
<% '************************************************************** ' 新动软网站管理系统 ' 官方网站: http://www.aspcpu.com ' 系统作者: 阮丁远(网名:天下程序) ' Copyright 新动软网站管理系统 版权所有 '************************************************************** %> <DIV id="loading_msg" style="position:absolute; z-index:200; top:210px; left:184px; background-color:#ffffff; width: 306px; height: 22px;" > 请稍后......</div> <!--#include file=../../inc/Functionb.asp--> <script type="text/javascript" src="../../inc/zxml.js"></script> <!--#include file=../../inc/ajaxLIB_no_loader.asp--> <% Server.ScriptTimeout=9999999 session.timeout=600 if session("ok_hhhv")="" or cstr(session("ok_hhhv"))<>cstr(request("pid")) then session("ok_hhhv")=request("pid") ' 检测组件变量 dim isobj,VerObj,TestObj '检查组件是否被支持及组件版本的子程序 sub ObjTest(strObj) on error resume next IsObj=false VerObj="" set TestObj=server.CreateObject (strObj) If -2147221005 <> Err then '感谢网友iAmFisher的宝贵建议 IsObj = True VerObj = TestObj.version if VerObj="" or isnull(VerObj) then VerObj=TestObj.about end if set TestObj=nothing End sub ObjTest(fssoo_nd_var_str_x_customx) if not isobj then sss1="检测中:对不起,由于你的系统不支持FSO组件,所以无法使用本后台" %> <script language="javascript"> setTimeout("document.all.loading_msg.innerHTML='<font color=#000000><%=sss1%></font>';",300); alert("对不起,由于你的系统不支持FSO组件,所以无法使用本后台"); alert("对不起,由于你的系统不支持FSO组件,所以无法使用本后台"); alert("对不起,由于你的系统不支持FSO组件,所以无法使用本后台"); </script> <% response.end else sss1="检测中:支持FSO......" %> <script language="javascript"> setTimeout("document.all.loading_msg.innerHTML='<font color=#000000><%=sss1%></font>';",0); var okeeee=0; var needdo=1; var w ; var w2 ; var ended=0; var ended2=0; var pos=""; var msg1=""; templates_list_get(); function templates_list_get(){ setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>加载要复制的图片等列表中....</font>';",800); var a=AJAXcreateXMLdocument(); a.onreadystatechange=function(){ if (a.readyState==4) { if (a.parseError.errorCode!=0){ alert("数据读取错误,请重试!!"); } var root=a.documentElement; var staut=root.firstChild.text; setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"加载要复制的图片等列表成功...,复制 中..."+"</font>';",1500); setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>开始复制 ....</font>';",800); //循环延时,防止卡住: w2 = setInterval("do_copy()",40); } } a.async=true; //异步模式 a.load("D_ajax_get_all_pages_list_pic.asp?ppath=<%=request("pname")%>"); } needdo=1; var pos22=""; ended2=0; var stu="ok"; var a22=AJAXcreateXMLdocument(); a22.onreadystatechange=function(){ if (a22.readyState==4) { if (a22.parseError.errorCode!=0){ alert("数据读取错误,请重试!!"); } var root2=a22.documentElement; var s2s1=root2.firstChild.text; var s2s2=root2.childNodes[1].text; var s2s3=root2.childNodes[2].text; var s2s4=root2.childNodes[3].text; if (s2s1==1){ended2=1;} pos22=s2s2; msg1=s2s3; needdo=1; setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"正在复制图片 "+msg1+",id="+pos22+"......"+"</font>';",1500); if (ended2==0){ } else { setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"复制图片完成......"+"</font>';",1500); setTimeout("self.location='../../editTemp/D_edit_a_template.asp?edittype=<%=request("edittype")%>&fname=<%=request("fname")%>&pname=<%=request("pname")%>&pid=<%=request("pid")%>';",10); } if (s2s4!="ok"){ stu="shibai"; setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"复制出错,请重试...(出错原因:"+s2s4+")</font>';",1500); alert("复制出错,请重试...(出错原因:"+s2s4+")"); } } } function do_copy(){ if (needdo==1&&ended2==0&&stu=="ok"){ needdo=0; a22.async=true; //异步模式 a22.load("D_ajax_copy_pic.asp?pos="+pos22); } } </script> <% end if else %> <script language=javascript> setTimeout("self.location='../../editTemp/D_edit_a_template.asp?edittype=<%=request("edittype")%>&fname=<%=request("fname")%>&pname=<%=request("pname")%>&pid=<%=request("pid")%>';",10); </script> <% end if %>